home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / beditbox.frm < prev    next >
Text File  |  1993-07-21  |  4KB  |  155 lines
  1. VERSION 2.00
  2. Begin Form BEditform 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   3285
  6.    ClientLeft      =   1290
  7.    ClientTop       =   1425
  8.    ClientWidth     =   6765
  9.    ControlBox      =   0   'False
  10.    Height          =   3690
  11.    Left            =   1230
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   13.688
  17.    ScaleMode       =   4  'Character
  18.    ScaleWidth      =   56.375
  19.    Top             =   1080
  20.    Width           =   6885
  21.    Begin CommandButton Command3 
  22.       Caption         =   "Cancel"
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   9.75
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   375
  30.       Left            =   4920
  31.       TabIndex        =   3
  32.       Top             =   2760
  33.       Width           =   1095
  34.    End
  35.    Begin CommandButton Command2 
  36.       Caption         =   "Clear"
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   9.75
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   375
  44.       Left            =   2880
  45.       TabIndex        =   2
  46.       Tag             =   "  Re-Enter Location Prior To Admission"
  47.       Top             =   2760
  48.       Width           =   1095
  49.    End
  50.    Begin CommandButton Command1 
  51.       Caption         =   "Enter"
  52.       Default         =   -1  'True
  53.       FontBold        =   -1  'True
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   9.75
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   375
  60.       Left            =   720
  61.       TabIndex        =   1
  62.       Top             =   2760
  63.       Width           =   1095
  64.    End
  65.    Begin VBedit BEdit1 
  66.       CellHeight      =   5
  67.       CellWidth       =   4
  68.       CharSet         =   16655
  69.       CombBaseLine    =   2
  70.       CombEndHeight   =   1.6
  71.       CombEndMarker   =   0   'False
  72.       CombHeight      =   1.1
  73.       FontBold        =   0   'False
  74.       FontItalic      =   0   'False
  75.       FontName        =   "MS Sans Serif"
  76.       FontSize        =   18
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       Height          =   855
  80.       InflateBottom   =   0.75
  81.       InflateLeft     =   1.5
  82.       InflateRight    =   1.5
  83.       InflateTop      =   1
  84.       Left            =   120
  85.       TabIndex        =   0
  86.       Top             =   1320
  87.       Version         =   268435458
  88.       Width           =   6615
  89.    End
  90.    Begin Label Label1 
  91.       Alignment       =   2  'Center
  92.       Caption         =   "Label1"
  93.       FontBold        =   -1  'True
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   12
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   855
  100.       Left            =   840
  101.       TabIndex        =   4
  102.       Tag             =   "Enter Location Prior To Admission"
  103.       Top             =   0
  104.       Width           =   5055
  105.    End
  106. End
  107. Dim newload As Integer
  108.  
  109. Sub Command1_Click ()
  110.  
  111. Select Case label1.tag
  112. Case " Enter Location Prior To Admission"
  113.     If Bedit1.text = "" Then
  114.     assess1.option3d4(5).caption = "OTHER"
  115.     Else
  116.     assess1.option3d4(5).caption = UCase$(Bedit1.text)
  117.     End If
  118.     Unload BEditform
  119. Case " Enter Other Injuries And Marks"
  120.     If Bedit1.text = "" Then
  121.     assess3.Check1.caption = "  O=Other"
  122.     Else
  123.     assess3.Check1.caption = UCase$(Mid$(Bedit1.text, 1, 1)) + "=" + UCase$(Mid$(Bedit1.text, 1, 1)) + LCase$(Mid$(Bedit1.text, 2))
  124.  
  125.     End If
  126.     Unload BEditform
  127. End Select
  128.  
  129. End Sub
  130.  
  131. Sub Command1_GotFocus ()
  132. If newload Then
  133. BEditform.label1.caption = BEditform.label1.tag
  134. newload = 0
  135. End If
  136. End Sub
  137.  
  138. Sub Command2_Click ()
  139. Bedit1.text = ""
  140. label1.caption = command2.tag
  141. End Sub
  142.  
  143. Sub Command3_Click ()
  144. Unload BEditform
  145. End Sub
  146.  
  147. Sub Form_Load ()
  148. newload = -1
  149. BEditform.Move (screen.width - BEditform.width) / 2, (screen.height - BEditform.height) / 1.8
  150.  
  151. Bedit1.text = ""
  152. label1.caption = label1.tag
  153. End Sub
  154.  
  155.